home *** CD-ROM | disk | FTP | other *** search
/ PC Electronics Plus 3 / PC Electronics Plus 3.iso / subdwg / lsp / prayo.lsp < prev    next >
Lisp/Scheme  |  1995-01-26  |  1KB  |  21 lines
  1. ;********************************************************************
  2. ;* Comando: pRayo
  3. ;* Comentarios: este comando se usa para definir el area de
  4. ;* proteccion del pararrayos
  5. ;********************************************************************
  6.  
  7. (defun c:pRayo ( / voltajeEquipo voltajePararrayos
  8.            pendienteFrenteDeOnda radio punto)
  9.  (setq voltajeEquipo (getreal "\nTension maxima admisible del equipo [kv] : "))
  10.  (setq voltajePararrayos (getreal "\nTension de maxima descarga del pararrayos [kv] : "))
  11.  (setq pendienteFrenteDeOnda (getreal "\nPendiente del frente de onda [kv us]: "))
  12.  (setq radio (* (/ (- voltajeEquipo voltajePararrayos)
  13.            (* 2 pendienteFrenteDeOnda))
  14.          300 ))
  15.  (if (>= radio 0)
  16.    (progn
  17.      (setq punto (getpoint "\nLocalizacion del pararrayos :"))
  18.      (command "CIRCLE" punto radio )
  19.      (if (equal (getvar "HPNAME") "") (setvar "HPNAME" "ANSI31"))
  20.      (command "HATCH" "" "" "" (entlast) ""))
  21.    (princ "\nEl raido deber ser mayor que 0. ")))